inherited fmMarketing: TfmMarketing
  Left = 283
  Top = 202
  Width = 1238
  Height = 741
  Caption = #1052#1072#1088#1082#1077#1090#1080#1085#1075
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 687
    Width = 1230
  end
  inherited Panel1: TPanel
    Width = 1230
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 1060
    end
    inherited BitBtn2: TBitBtn
      Left = 1148
    end
  end
  object dbgWWW: TcxGrid [2]
    Left = 0
    Top = 71
    Width = 1230
    Height = 378
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    LookAndFeel.Kind = lfStandard
    object tvWWW: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      OnCellDblClick = tvWWWCellDblClick
      DataController.DataSource = dsWWW
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'MSNAME'
          Column = tvWWWMSNAME
        end
        item
          Format = '0'
          Kind = skSum
          FieldName = 'MSUINF_KOLNEGATIV'
          Column = tvWWWMSUINF_KOLNEGATIV
        end
        item
          Format = '0'
          Kind = skSum
          FieldName = 'MSUINF_KOLOTZ'
          Column = tvWWWMSUINF_KOLOTZ
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.InvertSelect = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 5
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvWWWMSID: TcxGridDBColumn
        Caption = 'ID'
        DataBinding.FieldName = 'MSID'
      end
      object tvWWWMSNAME: TcxGridDBColumn
        Caption = #1056#1077#1089#1091#1088#1089
        DataBinding.FieldName = 'MSNAME'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
        Width = 20
      end
      object tvWWWMSISPROFIL: TcxGridDBColumn
        Caption = #1055#1088#1086#1092#1080#1083#1100#1085#1099#1081'?'
        DataBinding.FieldName = 'MSISPROFIL'
        PropertiesClassName = 'TcxCheckBoxProperties'
        Properties.NullStyle = nssUnchecked
        Properties.ReadOnly = True
        Properties.ValueChecked = 1
        Properties.ValueUnchecked = 0
        Width = 20
      end
      object tvWWWMSNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'. '#1082' '#1088#1077#1089#1091#1088#1089#1091
        DataBinding.FieldName = 'MSNOTE'
        Width = 20
      end
      object tvWWWMSUDERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088' '#1088#1077#1089'.'
        DataBinding.FieldName = 'MSUDERENTER'
        Width = 20
      end
      object tvWWWMSTIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'. '#1088#1077#1089'.'
        DataBinding.FieldName = 'MSTIMEENTER'
        Width = 20
      end
      object tvWWWMSUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088' '#1088#1077#1089'.'
        DataBinding.FieldName = 'MSUSEREDIT'
        Width = 20
      end
      object tvWWWMSTIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090#1080#1088'. '#1088#1077#1089'. '
        DataBinding.FieldName = 'MSTIMEEDIT'
        Width = 20
      end
      object tvWWWMSUSER: TcxGridDBColumn
        Caption = #1051#1086#1075#1080#1085' '#1085#1072' '#1088#1077#1089'.'
        DataBinding.FieldName = 'MSUSER'
        Width = 20
      end
      object tvWWWMSPASSWORD: TcxGridDBColumn
        Caption = #1055#1072#1088#1086#1083#1100' '#1086#1090' '#1083#1086#1075#1080#1085#1072
        DataBinding.FieldName = 'MSPASSWORD'
        Width = 20
      end
      object tvWWWMSUURL: TcxGridDBColumn
        Caption = 'URL '#1089#1090#1088#1072#1085#1080#1094#1099
        DataBinding.FieldName = 'MSUURL'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
        Properties.Prefix = ''
        Width = 20
      end
      object tvWWWMSUNAMEORG: TcxGridDBColumn
        Caption = #1053#1072#1096#1077' '#1085#1072#1079#1074'. '#1085#1072' '#1089#1090#1088'.'
        DataBinding.FieldName = 'MSUNAMEORG'
        Width = 20
      end
      object tvWWWMSUINF_KOLOTZ: TcxGridDBColumn
        Caption = #1054#1073#1097#1077#1077' '#1082#1086#1083'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_KOLOTZ'
        Width = 20
      end
      object tvWWWMSUINF_KOLNEGATIV: TcxGridDBColumn
        Caption = #1050#1086#1083'. '#1085#1077#1075'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_KOLNEGATIV'
        Width = 20
      end
      object tvWWWMSUINF_LASTDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_LASTDATE'
        Width = 20
      end
      object tvWWWMSUINF_LASTNEGATIVDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083'. '#1085#1077#1075#1072#1090'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_LASTNEGATIVDATE'
        Width = 20
      end
      object tvWWWMSUNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084'. '#1082' '#1089#1090#1088#1072#1085'. '#1088#1077#1089'.'
        DataBinding.FieldName = 'MSUNOTE'
        Width = 20
      end
      object tvWWWMSUUSERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088' '#1089#1090#1088#1072#1085#1080#1094#1099
        DataBinding.FieldName = 'MSUUSERENTER'
        Width = 20
      end
      object tvWWWMSUTIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'. '#1089#1090#1088'.'
        DataBinding.FieldName = 'MSUTIMEENTER'
        Width = 20
      end
      object tvWWWMSUUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088' '#1089#1090#1088'.'
        DataBinding.FieldName = 'MSUUSEREDIT'
        Width = 20
      end
      object tvWWWMSUTIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'. '#1089#1090#1088'.'
        DataBinding.FieldName = 'MSUTIMEEDIT'
        Width = 20
      end
      object tvWWWMSTYPE: TcxGridDBColumn
        Caption = #1058#1080#1087' '#1088#1077#1089'.'
        DataBinding.FieldName = 'MSTYPE'
        Width = 20
      end
      object tvWWWMSUORG: TcxGridDBColumn
        Caption = #1050' '#1082#1072#1082#1086#1081' '#1086#1088#1075'. '#1086#1090#1085'.'
        DataBinding.FieldName = 'MSUORG'
        Width = 30
      end
      object tvWWWMSUINF_ADR_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1072#1076#1088'.'
        DataBinding.FieldName = 'MSUINF_ADR_'
        Width = 23
      end
      object tvWWWMSUINF_DESCR_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1086#1087#1080#1089'.'
        DataBinding.FieldName = 'MSUINF_DESCR_'
        Width = 29
      end
      object tvWWWMSUINF_FOTO_: TcxGridDBColumn
        Caption = #1080#1085#1092'. '#1092#1086#1090#1086
        DataBinding.FieldName = 'MSUINF_FOTO_'
        Width = 32
      end
      object tvWWWMSUINF_TEL_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1090#1077#1083'.'
        DataBinding.FieldName = 'MSUINF_TEL_'
        Width = 36
      end
      object tvWWWMSUINF_DIR_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1088#1091#1082'.'
        DataBinding.FieldName = 'MSUINF_DIR_'
        Width = 42
      end
      object tvWWWMSUINF_MAIL_: TcxGridDBColumn
        Caption = #1048#1085#1092'. Email'
        DataBinding.FieldName = 'MSUINF_MAIL_'
        Width = 58
      end
    end
    object tvWWW2: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      OnCellDblClick = tvWWWCellDblClick
      DataController.DataSource = dsWWW
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.InvertSelect = False
      OptionsView.Navigator = True
      OptionsView.NavigatorOffset = 5
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvWWW2MSNAME: TcxGridDBColumn
        DataBinding.FieldName = 'MSNAME'
        Width = 52
      end
      object tvWWW2MSISPROFIL: TcxGridDBColumn
        DataBinding.FieldName = 'MSISPROFIL'
        Width = 72
      end
      object tvWWW2MSNOTE: TcxGridDBColumn
        DataBinding.FieldName = 'MSNOTE'
        Width = 51
      end
      object tvWWW2MSUDERENTER: TcxGridDBColumn
        DataBinding.FieldName = 'MSUDERENTER'
        Width = 86
      end
      object tvWWW2MSTIMEENTER: TcxGridDBColumn
        DataBinding.FieldName = 'MSTIMEENTER'
        Width = 83
      end
      object tvWWW2MSUSEREDIT: TcxGridDBColumn
        DataBinding.FieldName = 'MSUSEREDIT'
        Width = 75
      end
      object tvWWW2MSTIMEEDIT: TcxGridDBColumn
        DataBinding.FieldName = 'MSTIMEEDIT'
        Width = 73
      end
      object tvWWW2MSUSER: TcxGridDBColumn
        DataBinding.FieldName = 'MSUSER'
        Width = 50
      end
      object tvWWW2MSPASSWORD: TcxGridDBColumn
        DataBinding.FieldName = 'MSPASSWORD'
        Width = 84
      end
      object tvWWW2MSTYPE: TcxGridDBColumn
        DataBinding.FieldName = 'MSTYPE'
        Width = 44
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = tvWWW
    end
  end
  object dxBarDockControl1: TdxBarDockControl [3]
    Left = 0
    Top = 45
    Width = 1230
    Height = 26
    Align = dalTop
    BarManager = dxBarManager1
  end
  object cxSplitter1: TcxSplitter [4]
    Left = 0
    Top = 449
    Width = 1230
    Height = 8
    HotZoneClassName = 'TcxMediaPlayer9Style'
    AlignSplitter = salTop
    Control = dbgWWW
  end
  object cxlbl1: TcxLabel [5]
    Left = 0
    Top = 457
    Align = alTop
    Caption = #1057#1074#1103#1079#1072#1085#1085#1099#1077' '#1089' '#1088#1077#1089#1091#1088#1089#1086#1084' '#1089#1090#1088#1072#1085#1080#1094#1099' '#1089#1072#1081#1090#1072
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    Properties.Alignment.Horz = taCenter
    AnchorX = 615
  end
  object dxBarDockControl2: TdxBarDockControl [6]
    Left = 0
    Top = 477
    Width = 1230
    Height = 26
    Align = dalTop
    BarManager = dxBarManager1
  end
  object dbgUrl: TcxGrid [7]
    Left = 0
    Top = 503
    Width = 1230
    Height = 184
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    LookAndFeel.Kind = lfStandard
    object tvUrl: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Enabled = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      OnCellDblClick = tvUrlCellDblClick
      DataController.DataSource = dsUrl
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'MSUURL'
          Column = tvUrlMSUURL
        end
        item
          Format = '0'
          Kind = skSum
          FieldName = 'MSUINF_KOLOTZ'
          Column = tvUrlMSUINF_KOLOTZ
        end
        item
          Format = '0'
          Kind = skSum
          FieldName = 'MSUINF_KOLNEGATIV'
          Column = tvUrlMSUINF_KOLNEGATIV
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.FocusFirstCellOnNewRecord = True
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 5
      OptionsView.CellAutoHeight = True
      OptionsView.CellTextMaxLineCount = 1
      OptionsView.ColumnAutoWidth = True
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.HeaderEndEllipsis = True
      OptionsView.Indicator = True
      OptionsView.ShowColumnFilterButtons = sfbAlways
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxGreenText
      Styles.Header = DMInv.cxSiniyText
      object tvUrlMSUURL: TcxGridDBColumn
        Caption = 'URL'
        DataBinding.FieldName = 'MSUURL'
        PropertiesClassName = 'TcxHyperLinkEditProperties'
        Properties.Prefix = ''
        Width = 20
      end
      object tvUrlMSUNAMEORG: TcxGridDBColumn
        Caption = #1053#1072#1079#1074'. '#1085#1072' '#1089#1072#1081#1090#1077
        DataBinding.FieldName = 'MSUNAMEORG'
        Width = 30
      end
      object tvUrlMSUINF_KOLOTZ: TcxGridDBColumn
        Caption = #1054#1073#1097'. '#1082#1086#1083'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_KOLOTZ'
        Width = 28
      end
      object tvUrlMSUINF_KOLNEGATIV: TcxGridDBColumn
        Caption = #1050#1086#1083#1080#1095'. '#1085#1077#1075'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_KOLNEGATIV'
        Width = 33
      end
      object tvUrlMSUINF_LASTDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083'. '#1086#1090#1079'. '
        DataBinding.FieldName = 'MSUINF_LASTDATE'
        Width = 32
      end
      object tvUrlMSUINF_LASTNEGATIVDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083'. '#1085#1077#1075'. '#1086#1090#1079'.'
        DataBinding.FieldName = 'MSUINF_LASTNEGATIVDATE'
        Width = 40
      end
      object tvUrlMSUNOTE: TcxGridDBColumn
        Caption = #1050#1086#1084#1084#1077#1085#1090'.'
        DataBinding.FieldName = 'MSUNOTE'
        Width = 22
      end
      object tvUrlMSUUSERENTER: TcxGridDBColumn
        Caption = #1040#1074#1090#1086#1088
        DataBinding.FieldName = 'MSUUSERENTER'
        Width = 20
      end
      object tvUrlMSUTIMEENTER: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1089#1086#1079#1076'.'
        DataBinding.FieldName = 'MSUTIMEENTER'
        Width = 27
      end
      object tvUrlMSUUSEREDIT: TcxGridDBColumn
        Caption = #1056#1077#1076#1072#1082#1090#1086#1088
        DataBinding.FieldName = 'MSUUSEREDIT'
        Width = 28
      end
      object tvUrlMSUTIMEEDIT: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1077#1076#1072#1082#1090'.'
        DataBinding.FieldName = 'MSUTIMEEDIT'
        Width = 39
      end
      object tvUrlMSUORG: TcxGridDBColumn
        Caption = #1050' '#1082#1072#1082#1086#1081' '#1086#1088#1075'. '#1086#1090#1085'.'
        DataBinding.FieldName = 'MSUORG'
        Width = 55
      end
      object tvUrlMSUINF_ADR_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1072#1076#1088'.'
        DataBinding.FieldName = 'MSUINF_ADR_'
        Width = 37
      end
      object tvUrlMSUINF_DESCR_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1086#1087#1080#1089'.'
        DataBinding.FieldName = 'MSUINF_DESCR_'
        Width = 43
      end
      object tvUrlMSUINF_FOTO_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1092#1086#1090#1086
        DataBinding.FieldName = 'MSUINF_FOTO_'
        Width = 46
      end
      object tvUrlMSUINF_TEL_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1090#1077#1083'.'
        DataBinding.FieldName = 'MSUINF_TEL_'
        Width = 45
      end
      object tvUrlMSUINF_DIR_: TcxGridDBColumn
        Caption = #1048#1085#1092'. '#1088#1091#1082#1086#1074'.'
        DataBinding.FieldName = 'MSUINF_DIR_'
        Width = 58
      end
      object tvUrlMSUINF_MAIL_: TcxGridDBColumn
        Caption = #1048#1085#1092' . eMAIL'
        DataBinding.FieldName = 'MSUINF_MAIL_'
        Width = 67
      end
    end
    object cxGridLevel1: TcxGridLevel
      GridView = tvUrl
    end
  end
  inherited dlgDS: TDataSource
    Left = 48
    Top = 8
  end
  object qWWW: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'SELECT MS.*, MSU.*, SD.SDNAME AS mstype, sd1.SDNAME AS msuorg,'
      'CASE MSU.MSUINF_ADR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_ADR_,'
      'CASE MSU.MSUINF_DESCR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DESCR_,'
      'CASE MSU.MSUINF_FOTO'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_FOTO_,'
      'CASE MSU.MSUINF_TEL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_TEL_,'
      'CASE MSU.MSUINF_DIR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DIR_,'
      'CASE MSU.MSUINF_MAIL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_MAIL_'
      'FROM MARKET_SITE MS'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = MS.MSTYPESDID'
      'LEFT OUTER JOIN MS_URL MSU ON MSU.MSID = MS.MSID'
      'LEFT OUTER JOIN SYS_DIC SD1 ON SD1.SDID = MSU.MSUSDIDORG'
      'WHERE MS.MSISDELETE is NULL'
      'AND MSU.MSUISDELETE IS NULL')
    UpdateObject = quWWW
    GeneratorField.Field = 'MSID'
    GeneratorField.Generator = 'GEN_MARKET_SITE_ID'
    Left = 304
    Top = 141
    object intgrfldWWWMSID: TIntegerField
      FieldName = 'MSID'
      Origin = '"MARKET_SITE"."MSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qWWWMSNAME: TIBStringField
      FieldName = 'MSNAME'
      Origin = '"MARKET_SITE"."MSNAME"'
      Size = 255
    end
    object intgrfldWWWMSISPROFIL: TIntegerField
      FieldName = 'MSISPROFIL'
      Origin = '"MARKET_SITE"."MSISPROFIL"'
    end
    object qWWWMSNOTE: TIBStringField
      FieldName = 'MSNOTE'
      Origin = '"MARKET_SITE"."MSNOTE"'
      Size = 2048
    end
    object qWWWMSUDERENTER: TIBStringField
      FieldName = 'MSUDERENTER'
      Origin = '"MARKET_SITE"."MSUDERENTER"'
      Size = 40
    end
    object qWWWMSTIMEENTER: TDateTimeField
      FieldName = 'MSTIMEENTER'
      Origin = '"MARKET_SITE"."MSTIMEENTER"'
    end
    object qWWWMSUSEREDIT: TIBStringField
      FieldName = 'MSUSEREDIT'
      Origin = '"MARKET_SITE"."MSUSEREDIT"'
      Size = 40
    end
    object qWWWMSTIMEEDIT: TDateTimeField
      FieldName = 'MSTIMEEDIT'
      Origin = '"MARKET_SITE"."MSTIMEEDIT"'
    end
    object qWWWMSUSER: TIBStringField
      FieldName = 'MSUSER'
      Origin = '"MARKET_SITE"."MSUSER"'
      Size = 40
    end
    object qWWWMSPASSWORD: TIBStringField
      FieldName = 'MSPASSWORD'
      Origin = '"MARKET_SITE"."MSPASSWORD"'
      Size = 40
    end
    object intgrfldWWWMSTYPESDID: TIntegerField
      FieldName = 'MSTYPESDID'
      Origin = '"MARKET_SITE"."MSTYPESDID"'
    end
    object intgrfldWWWMSISDELETE: TIntegerField
      FieldName = 'MSISDELETE'
      Origin = '"MARKET_SITE"."MSISDELETE"'
    end
    object intgrfldWWWMSUID: TIntegerField
      FieldName = 'MSUID'
      Origin = '"MS_URL"."MSUID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object intgrfldWWWMSID1: TIntegerField
      FieldName = 'MSID1'
      Origin = '"MS_URL"."MSID"'
    end
    object qWWWMSUURL: TIBStringField
      FieldName = 'MSUURL'
      Origin = '"MS_URL"."MSUURL"'
      Size = 2048
    end
    object intgrfldWWWMSUSDIDORG: TIntegerField
      FieldName = 'MSUSDIDORG'
      Origin = '"MS_URL"."MSUSDIDORG"'
    end
    object qWWWMSUNAMEORG: TIBStringField
      FieldName = 'MSUNAMEORG'
      Origin = '"MS_URL"."MSUNAMEORG"'
      Size = 255
    end
    object intgrfldWWWMSUINF_ADR: TIntegerField
      FieldName = 'MSUINF_ADR'
      Origin = '"MS_URL"."MSUINF_ADR"'
    end
    object intgrfldWWWMSUINF_DESCR: TIntegerField
      FieldName = 'MSUINF_DESCR'
      Origin = '"MS_URL"."MSUINF_DESCR"'
    end
    object intgrfldWWWMSUINF_FOTO: TIntegerField
      FieldName = 'MSUINF_FOTO'
      Origin = '"MS_URL"."MSUINF_FOTO"'
    end
    object intgrfldWWWMSUINF_TEL: TIntegerField
      FieldName = 'MSUINF_TEL'
      Origin = '"MS_URL"."MSUINF_TEL"'
    end
    object intgrfldWWWMSUINF_DIR: TIntegerField
      FieldName = 'MSUINF_DIR'
      Origin = '"MS_URL"."MSUINF_DIR"'
    end
    object intgrfldWWWMSUINF_MAIL: TIntegerField
      FieldName = 'MSUINF_MAIL'
      Origin = '"MS_URL"."MSUINF_MAIL"'
    end
    object intgrfldWWWMSUINF_KOLOTZ: TIntegerField
      FieldName = 'MSUINF_KOLOTZ'
      Origin = '"MS_URL"."MSUINF_KOLOTZ"'
    end
    object intgrfldWWWMSUINF_KOLNEGATIV: TIntegerField
      FieldName = 'MSUINF_KOLNEGATIV'
      Origin = '"MS_URL"."MSUINF_KOLNEGATIV"'
    end
    object qWWWMSUINF_LASTDATE: TDateField
      FieldName = 'MSUINF_LASTDATE'
      Origin = '"MS_URL"."MSUINF_LASTDATE"'
    end
    object qWWWMSUINF_LASTNEGATIVDATE: TDateField
      FieldName = 'MSUINF_LASTNEGATIVDATE'
      Origin = '"MS_URL"."MSUINF_LASTNEGATIVDATE"'
    end
    object qWWWMSUNOTE: TIBStringField
      FieldName = 'MSUNOTE'
      Origin = '"MS_URL"."MSUNOTE"'
      Size = 2048
    end
    object qWWWMSUUSERENTER: TIBStringField
      FieldName = 'MSUUSERENTER'
      Origin = '"MS_URL"."MSUUSERENTER"'
      Size = 40
    end
    object qWWWMSUTIMEENTER: TDateTimeField
      FieldName = 'MSUTIMEENTER'
      Origin = '"MS_URL"."MSUTIMEENTER"'
    end
    object qWWWMSUUSEREDIT: TIBStringField
      FieldName = 'MSUUSEREDIT'
      Origin = '"MS_URL"."MSUUSEREDIT"'
      Size = 40
    end
    object qWWWMSUTIMEEDIT: TDateTimeField
      FieldName = 'MSUTIMEEDIT'
      Origin = '"MS_URL"."MSUTIMEEDIT"'
    end
    object intgrfldWWWMSUISDELETE: TIntegerField
      FieldName = 'MSUISDELETE'
      Origin = '"MS_URL"."MSUISDELETE"'
    end
    object qWWWMSTYPE: TIBStringField
      FieldName = 'MSTYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qWWWMSUORG: TIBStringField
      FieldName = 'MSUORG'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qWWWMSUINF_ADR_: TIBStringField
      FieldName = 'MSUINF_ADR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qWWWMSUINF_DESCR_: TIBStringField
      FieldName = 'MSUINF_DESCR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qWWWMSUINF_FOTO_: TIBStringField
      FieldName = 'MSUINF_FOTO_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qWWWMSUINF_TEL_: TIBStringField
      FieldName = 'MSUINF_TEL_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qWWWMSUINF_DIR_: TIBStringField
      FieldName = 'MSUINF_DIR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qWWWMSUINF_MAIL_: TIBStringField
      FieldName = 'MSUINF_MAIL_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
  end
  object dsWWW: TDataSource
    DataSet = qWWW
    Left = 272
    Top = 141
  end
  object qWWW_temp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT MS.*, MSU.*, SD.SDNAME AS mstype, sd1.SDNAME AS msuorg,'
      'CASE MSU.MSUINF_ADR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_ADR_,'
      'CASE MSU.MSUINF_DESCR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DESCR_,'
      'CASE MSU.MSUINF_FOTO'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_FOTO_,'
      'CASE MSU.MSUINF_TEL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_TEL_,'
      'CASE MSU.MSUINF_DIR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DIR_,'
      'CASE MSU.MSUINF_MAIL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_MAIL_'
      'FROM MARKET_SITE MS'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = MS.MSTYPESDID'
      'LEFT OUTER JOIN MS_URL MSU ON MSU.MSID = -1'
      'LEFT OUTER JOIN SYS_DIC SD1 ON SD1.SDID = MSU.MSUSDIDORG'
      'WHERE MS.MSISDELETE is NULL'
      'AND MSU.MSUISDELETE IS NULL')
    Left = 304
    Top = 173
  end
  object dlgSaveSD1: TSaveDialog
    InitialDir = 'c:\'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 704
    Top = 120
  end
  object dxBarManager1: TdxBarManager
    AllowReset = False
    AlwaysSaveText = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Categories.Strings = (
      'Default')
    Categories.ItemsVisibles = (
      2)
    Categories.Visibles = (
      True)
    ImageOptions.Images = DMInv.cxSmallImages
    ImageOptions.LargeImages = DMInv.cxLargeImages
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = False
    PopupMenuLinks = <>
    RegistryPath = '\Software\Olympic_BM_fmMarketing\'
    StoreInRegistry = True
    UseSystemFont = True
    Left = 480
    Top = 168
    DockControlHeights = (
      0
      0
      0
      0)
    object dxBarManager1Bar1: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 1'
      CaptionButtons = <>
      DockControl = dxBarDockControl1
      DockedDockControl = dxBarDockControl1
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 116
      FloatTop = 152
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbAddWWW'
        end
        item
          Visible = True
          ItemName = 'bbEditWWW'
        end
        item
          Visible = True
          ItemName = 'bbDelWWW'
        end
        item
          Visible = True
          ItemName = 'cbRes'
        end
        item
          Visible = True
          ItemName = 'cxBarEditItem2'
        end
        item
          Visible = True
          ItemName = 'bbSearch'
        end
        item
          Visible = True
          ItemName = 'bbRefresh'
        end
        item
          Visible = True
          ItemName = 'bbColumnView'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object dxBarManager1Bar2: TdxBar
      AllowClose = False
      AllowCustomizing = False
      AllowQuickCustomizing = False
      AllowReset = False
      Caption = 'Custom 2'
      CaptionButtons = <>
      DockControl = dxBarDockControl2
      DockedDockControl = dxBarDockControl2
      DockedLeft = 0
      DockedTop = 0
      FloatLeft = 80
      FloatTop = 151
      FloatClientWidth = 0
      FloatClientHeight = 0
      ItemLinks = <
        item
          Visible = True
          ItemName = 'bbAddUrl'
        end
        item
          Visible = True
          ItemName = 'bbEditUrl'
        end
        item
          Visible = True
          ItemName = 'bbDelUrl'
        end
        item
          Visible = True
          ItemName = 'bbCV2'
        end>
      NotDocking = [dsNone, dsLeft, dsTop, dsRight, dsBottom]
      OneOnRow = True
      Row = 0
      UseOwnFont = False
      UseRestSpace = True
      Visible = True
      WholeRow = False
    end
    object bbAddWWW: TdxBarButton
      Caption = #1053#1086#1074#1099#1081
      Category = 0
      Hint = #1053#1086#1074#1099#1081
      Visible = ivAlways
      ImageIndex = 51
      OnClick = bbAddWWWClick
    end
    object bbRefresh: TdxBarButton
      Caption = #1054#1073#1085#1086#1074#1080#1090#1100
      Category = 0
      Hint = #1054#1073#1085#1086#1074#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 55
      OnClick = bbRefreshClick
    end
    object bbEditWWW: TdxBarButton
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
      Category = 0
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbEditWWWClick
    end
    object bbDelWWW: TdxBarButton
      Caption = #1059#1076#1072#1083#1080#1090#1100
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
      OnClick = bbDelWWWClick
    end
    object bbColumnView: TdxBarButton
      Align = iaRight
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Visible = ivAlways
      ImageIndex = 17
      OnClick = bbColumnViewClick
    end
    object bb1: TdxBarButton
      Caption = 'New Button'
      Category = 0
      Hint = 'New Button'
      Visible = ivAlways
    end
    object dxBarSubItem1: TdxBarSubItem
      Caption = 'New SubItem'
      Category = 0
      Visible = ivAlways
      ItemLinks = <>
    end
    object bbSearch: TdxBarButton
      Caption = #1053#1072#1095#1072#1090#1100' '#1087#1086#1080#1089#1082
      Category = 0
      Hint = #1053#1072#1095#1072#1090#1100' '#1087#1086#1080#1089#1082
      Visible = ivAlways
      ImageIndex = 53
      PaintStyle = psCaptionGlyph
      OnClick = bbSearchClick
    end
    object bbAddUrl: TdxBarButton
      Caption = #1053#1086#1074#1099#1081
      Category = 0
      Hint = #1053#1086#1074#1099#1081
      Visible = ivAlways
      ImageIndex = 51
      OnClick = bbAddUrlClick
    end
    object bbEditUrl: TdxBarButton
      Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
      Category = 0
      Hint = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1090#1100
      Visible = ivAlways
      ImageIndex = 54
      OnClick = bbEditUrlClick
    end
    object bbDelUrl: TdxBarButton
      Caption = #1059#1076#1072#1083#1080#1090#1100
      Category = 0
      Hint = #1059#1076#1072#1083#1080#1090#1100
      Visible = ivAlways
      ImageIndex = 46
      OnClick = bbDelUrlClick
    end
    object bbCV2: TdxBarButton
      Align = iaRight
      Caption = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Category = 0
      Hint = #1042#1080#1076#1080#1084#1086#1089#1090#1100' '#1082#1086#1083#1086#1085#1086#1082
      Visible = ivAlways
      ImageIndex = 17
      OnClick = bbCV2Click
    end
    object cbRes: TcxBarEditItem
      Caption = #1058#1086#1083#1100#1082#1086' '#1088#1077#1089#1091#1088#1089#1099
      Category = 0
      Hint = #1058#1086#1083#1100#1082#1086' '#1088#1077#1089#1091#1088#1089#1099
      Visible = ivAlways
      ShowCaption = True
      Width = 40
      PropertiesClassName = 'TcxCheckBoxProperties'
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      Properties.OnChange = cxBarEditItem1PropertiesChange
      InternalEditValue = 1
    end
    object cxBarEditItem2: TcxBarEditItem
      Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083'. '#1086#1090#1079#1099#1074#1072
      Category = 0
      Hint = #1044#1072#1090#1072' '#1087#1086#1089#1083'. '#1086#1090#1079#1099#1074#1072
      Visible = ivNever
      ShowCaption = True
      Width = 200
      PropertiesClassName = 'TcxButtonEditProperties'
      Properties.Buttons = <
        item
          Default = True
        end>
      Properties.ReadOnly = True
      Properties.OnChange = cxBarEditItem2PropertiesChange
      InternalEditValue = ''
    end
  end
  object quWWW: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  MSID,'
      '  MSNAME,'
      '  MSISPROFIL,'
      '  MSNOTE,'
      '  MSUDERENTER,'
      '  MSTIMEENTER,'
      '  MSUSEREDIT,'
      '  MSTIMEEDIT,'
      '  MSUSER,'
      '  MSPASSWORD,'
      '  MSTYPESDID,'
      '  MSISDELETE'
      'from MARKET_SITE '
      'where'
      '  MSID = :MSID')
    ModifySQL.Strings = (
      'update MARKET_SITE'
      'set'
      '  MSID = :MSID,'
      '  MSISDELETE = :MSISDELETE,'
      '  MSISPROFIL = :MSISPROFIL,'
      '  MSNAME = :MSNAME,'
      '  MSNOTE = :MSNOTE,'
      '  MSPASSWORD = :MSPASSWORD,'
      '  MSTYPESDID = :MSTYPESDID,'
      '  MSUSER = :MSUSER'
      'where'
      '  MSID = :OLD_MSID')
    InsertSQL.Strings = (
      'insert into MARKET_SITE'
      
        '  (MSID, MSISDELETE, MSISPROFIL, MSNAME, MSNOTE, MSPASSWORD, MST' +
        'YPESDID, '
      '   MSUSER)'
      'values'
      
        '  (:MSID, :MSISDELETE, :MSISPROFIL, :MSNAME, :MSNOTE, :MSPASSWOR' +
        'D, :MSTYPESDID, '
      '   :MSUSER)')
    DeleteSQL.Strings = (
      'update MARKET_SITE'
      'set'
      '  MSISDELETE = 1'
      'where'
      '  MSID = :OLD_MSID')
    Left = 344
    Top = 144
  end
  object dsUrl: TDataSource
    DataSet = qUrl
    Left = 264
    Top = 541
  end
  object qUrl: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    AfterInsert = qUrlAfterInsert
    CachedUpdates = True
    DataSource = dsWWW
    SQL.Strings = (
      'SELECT msu.*, sd1.SDNAME AS msuorg,'
      'CASE MSU.MSUINF_ADR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_ADR_,'
      'CASE MSU.MSUINF_DESCR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DESCR_,'
      'CASE MSU.MSUINF_FOTO'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_FOTO_,'
      'CASE MSU.MSUINF_TEL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_TEL_,'
      'CASE MSU.MSUINF_DIR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DIR_,'
      'CASE MSU.MSUINF_MAIL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_MAIL_'
      'FROM MS_URL mSU'
      'INNER JOIN SYS_DIC SD1 ON SD1.SDID = MSU.MSUSDIDORG'
      'WHERE msu.MSUISDELETE IS NULL'
      'AND MSU.MSID = :MSID')
    UpdateObject = quUrl
    GeneratorField.Field = 'MSUID'
    GeneratorField.Generator = 'GEN_MS_URL_ID'
    Left = 304
    Top = 541
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'MSID'
        ParamType = ptUnknown
      end>
    object intgrfldq1MSUID: TIntegerField
      FieldName = 'MSUID'
      Origin = '"MS_URL"."MSUID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object intgrfldq1MSID: TIntegerField
      FieldName = 'MSID'
      Origin = '"MS_URL"."MSID"'
    end
    object qUrlMSUURL: TIBStringField
      FieldName = 'MSUURL'
      Origin = '"MS_URL"."MSUURL"'
      Size = 2048
    end
    object intgrfldq1MSUSDIDORG: TIntegerField
      FieldName = 'MSUSDIDORG'
      Origin = '"MS_URL"."MSUSDIDORG"'
    end
    object qUrlMSUNAMEORG: TIBStringField
      FieldName = 'MSUNAMEORG'
      Origin = '"MS_URL"."MSUNAMEORG"'
      Size = 255
    end
    object intgrfldq1MSUINF_ADR: TIntegerField
      FieldName = 'MSUINF_ADR'
      Origin = '"MS_URL"."MSUINF_ADR"'
    end
    object intgrfldq1MSUINF_DESCR: TIntegerField
      FieldName = 'MSUINF_DESCR'
      Origin = '"MS_URL"."MSUINF_DESCR"'
    end
    object intgrfldq1MSUINF_FOTO: TIntegerField
      FieldName = 'MSUINF_FOTO'
      Origin = '"MS_URL"."MSUINF_FOTO"'
    end
    object intgrfldq1MSUINF_TEL: TIntegerField
      FieldName = 'MSUINF_TEL'
      Origin = '"MS_URL"."MSUINF_TEL"'
    end
    object intgrfldq1MSUINF_DIR: TIntegerField
      FieldName = 'MSUINF_DIR'
      Origin = '"MS_URL"."MSUINF_DIR"'
    end
    object intgrfldq1MSUINF_MAIL: TIntegerField
      FieldName = 'MSUINF_MAIL'
      Origin = '"MS_URL"."MSUINF_MAIL"'
    end
    object intgrfldq1MSUINF_KOLOTZ: TIntegerField
      FieldName = 'MSUINF_KOLOTZ'
      Origin = '"MS_URL"."MSUINF_KOLOTZ"'
    end
    object intgrfldq1MSUINF_KOLNEGATIV: TIntegerField
      FieldName = 'MSUINF_KOLNEGATIV'
      Origin = '"MS_URL"."MSUINF_KOLNEGATIV"'
    end
    object qUrlMSUINF_LASTDATE: TDateField
      FieldName = 'MSUINF_LASTDATE'
      Origin = '"MS_URL"."MSUINF_LASTDATE"'
    end
    object qUrlMSUINF_LASTNEGATIVDATE: TDateField
      FieldName = 'MSUINF_LASTNEGATIVDATE'
      Origin = '"MS_URL"."MSUINF_LASTNEGATIVDATE"'
    end
    object qUrlMSUNOTE: TIBStringField
      FieldName = 'MSUNOTE'
      Origin = '"MS_URL"."MSUNOTE"'
      Size = 2048
    end
    object qUrlMSUUSERENTER: TIBStringField
      FieldName = 'MSUUSERENTER'
      Origin = '"MS_URL"."MSUUSERENTER"'
      Size = 40
    end
    object qUrlMSUTIMEENTER: TDateTimeField
      FieldName = 'MSUTIMEENTER'
      Origin = '"MS_URL"."MSUTIMEENTER"'
    end
    object qUrlMSUUSEREDIT: TIBStringField
      FieldName = 'MSUUSEREDIT'
      Origin = '"MS_URL"."MSUUSEREDIT"'
      Size = 40
    end
    object qUrlMSUTIMEEDIT: TDateTimeField
      FieldName = 'MSUTIMEEDIT'
      Origin = '"MS_URL"."MSUTIMEEDIT"'
    end
    object intgrfldq1MSUISDELETE: TIntegerField
      FieldName = 'MSUISDELETE'
      Origin = '"MS_URL"."MSUISDELETE"'
    end
    object qUrlMSUORG: TIBStringField
      FieldName = 'MSUORG'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qUrlMSUINF_ADR_: TIBStringField
      FieldName = 'MSUINF_ADR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qUrlMSUINF_DESCR_: TIBStringField
      FieldName = 'MSUINF_DESCR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qUrlMSUINF_FOTO_: TIBStringField
      FieldName = 'MSUINF_FOTO_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qUrlMSUINF_TEL_: TIBStringField
      FieldName = 'MSUINF_TEL_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qUrlMSUINF_DIR_: TIBStringField
      FieldName = 'MSUINF_DIR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object qUrlMSUINF_MAIL_: TIBStringField
      FieldName = 'MSUINF_MAIL_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
  end
  object quUrl: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  MSUID,'
      '  MSID,'
      '  MSUURL,'
      '  MSUSDIDORG,'
      '  MSUNAMEORG,'
      '  MSUINF_ADR,'
      '  MSUINF_DESCR,'
      '  MSUINF_FOTO,'
      '  MSUINF_TEL,'
      '  MSUINF_DIR,'
      '  MSUINF_MAIL,'
      '  MSUINF_KOLOTZ,'
      '  MSUINF_KOLNEGATIV,'
      '  MSUINF_LASTDATE,'
      '  MSUINF_LASTNEGATIVDATE,'
      '  MSUNOTE,'
      '  MSUUSERENTER,'
      '  MSUTIMEENTER,'
      '  MSUUSEREDIT,'
      '  MSUTIMEEDIT,'
      '  MSUISDELETE'
      'from MS_URL '
      'where'
      '  MSUID = :MSUID')
    ModifySQL.Strings = (
      'update MS_URL'
      'set'
      '  MSID = :MSID,'
      '  MSUID = :MSUID,'
      '  MSUINF_ADR = :MSUINF_ADR,'
      '  MSUINF_DESCR = :MSUINF_DESCR,'
      '  MSUINF_DIR = :MSUINF_DIR,'
      '  MSUINF_FOTO = :MSUINF_FOTO,'
      '  MSUINF_KOLNEGATIV = :MSUINF_KOLNEGATIV,'
      '  MSUINF_KOLOTZ = :MSUINF_KOLOTZ,'
      '  MSUINF_LASTDATE = :MSUINF_LASTDATE,'
      '  MSUINF_LASTNEGATIVDATE = :MSUINF_LASTNEGATIVDATE,'
      '  MSUINF_MAIL = :MSUINF_MAIL,'
      '  MSUINF_TEL = :MSUINF_TEL,'
      '  MSUISDELETE = :MSUISDELETE,'
      '  MSUNAMEORG = :MSUNAMEORG,'
      '  MSUNOTE = :MSUNOTE,'
      '  MSUSDIDORG = :MSUSDIDORG,'
      '  MSUURL = :MSUURL'
      'where'
      '  MSUID = :OLD_MSUID')
    InsertSQL.Strings = (
      'insert into MS_URL'
      
        '  (MSID, MSUID, MSUINF_ADR, MSUINF_DESCR, MSUINF_DIR, MSUINF_FOT' +
        'O, MSUINF_KOLNEGATIV, '
      
        '   MSUINF_KOLOTZ, MSUINF_LASTDATE, MSUINF_LASTNEGATIVDATE, MSUIN' +
        'F_MAIL, '
      
        '   MSUINF_TEL, MSUISDELETE, MSUNAMEORG, MSUNOTE, MSUSDIDORG, MSU' +
        'URL)'
      'values'
      
        '  (:MSID, :MSUID, :MSUINF_ADR, :MSUINF_DESCR, :MSUINF_DIR, :MSUI' +
        'NF_FOTO, '
      
        '   :MSUINF_KOLNEGATIV, :MSUINF_KOLOTZ, :MSUINF_LASTDATE, :MSUINF' +
        '_LASTNEGATIVDATE, '
      
        '   :MSUINF_MAIL, :MSUINF_TEL, :MSUISDELETE, :MSUNAMEORG, :MSUNOT' +
        'E, :MSUSDIDORG, '
      '   :MSUURL)')
    DeleteSQL.Strings = (
      'update MS_URL'
      'set'
      '  MSUISDELETE = 1'
      'where'
      '  MSUID = :OLD_MSUID'
      '')
    Left = 344
    Top = 544
  end
  object cxPropertiesStore1: TcxPropertiesStore
    Components = <
      item
        Component = dbgWWW
        Properties.Strings = (
          'Height'
          'Left'
          'Width')
      end>
    StorageName = 'Software\Olympic_PS_fmMarketing'
    StorageType = stRegistry
    Left = 736
    Top = 120
  end
  object TdxBarSeparator
    Category = -1
    Visible = ivAlways
  end
  object qWWW_temp2: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT MS.*, MSU.*, SD.SDNAME AS mstype, sd1.SDNAME AS msuorg,'
      'CASE MSU.MSUINF_ADR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_ADR_,'
      'CASE MSU.MSUINF_DESCR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DESCR_,'
      'CASE MSU.MSUINF_FOTO'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_FOTO_,'
      'CASE MSU.MSUINF_TEL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_TEL_,'
      'CASE MSU.MSUINF_DIR'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_DIR_,'
      'CASE MSU.MSUINF_MAIL'
      'WHEN -2 THEN '#39#1053#1077#1074#1077#1088#1085#1086#39
      'WHEN -1 THEN '#39#1053#1077#1074#1086#1079#1084#1086#1078#1085#1086#39
      'WHEN 0 THEN '#39#1054#1090#1089#1091#1090#1089#1090#1074#1091#1077#1090#39
      'WHEN 1 THEN '#39#1055#1088#1072#1074#1080#1083#1100#1085#1086#39
      'END AS MSUINF_MAIL_'
      'FROM MARKET_SITE MS'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = MS.MSTYPESDID'
      'LEFT OUTER JOIN MS_URL MSU ON MSU.MSID = MS.MSID'
      'LEFT OUTER JOIN SYS_DIC SD1 ON SD1.SDID = MSU.MSUSDIDORG'
      'WHERE MS.MSISDELETE is NULL'
      'AND MSU.MSUISDELETE IS NULL')
    GeneratorField.Field = 'MSID'
    Left = 344
    Top = 181
    object intgrfld1: TIntegerField
      FieldName = 'MSID'
      Origin = '"MARKET_SITE"."MSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField1: TIBStringField
      FieldName = 'MSNAME'
      Origin = '"MARKET_SITE"."MSNAME"'
      Size = 255
    end
    object intgrfld2: TIntegerField
      FieldName = 'MSISPROFIL'
      Origin = '"MARKET_SITE"."MSISPROFIL"'
    end
    object IBStringField2: TIBStringField
      FieldName = 'MSNOTE'
      Origin = '"MARKET_SITE"."MSNOTE"'
      Size = 2048
    end
    object IBStringField3: TIBStringField
      FieldName = 'MSUDERENTER'
      Origin = '"MARKET_SITE"."MSUDERENTER"'
      Size = 40
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'MSTIMEENTER'
      Origin = '"MARKET_SITE"."MSTIMEENTER"'
    end
    object IBStringField4: TIBStringField
      FieldName = 'MSUSEREDIT'
      Origin = '"MARKET_SITE"."MSUSEREDIT"'
      Size = 40
    end
    object DateTimeField2: TDateTimeField
      FieldName = 'MSTIMEEDIT'
      Origin = '"MARKET_SITE"."MSTIMEEDIT"'
    end
    object IBStringField5: TIBStringField
      FieldName = 'MSUSER'
      Origin = '"MARKET_SITE"."MSUSER"'
      Size = 40
    end
    object IBStringField6: TIBStringField
      FieldName = 'MSPASSWORD'
      Origin = '"MARKET_SITE"."MSPASSWORD"'
      Size = 40
    end
    object intgrfld3: TIntegerField
      FieldName = 'MSTYPESDID'
      Origin = '"MARKET_SITE"."MSTYPESDID"'
    end
    object intgrfld4: TIntegerField
      FieldName = 'MSISDELETE'
      Origin = '"MARKET_SITE"."MSISDELETE"'
    end
    object intgrfld5: TIntegerField
      FieldName = 'MSUID'
      Origin = '"MS_URL"."MSUID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object intgrfld6: TIntegerField
      FieldName = 'MSID1'
      Origin = '"MS_URL"."MSID"'
    end
    object IBStringField7: TIBStringField
      FieldName = 'MSUURL'
      Origin = '"MS_URL"."MSUURL"'
      Size = 2048
    end
    object intgrfld7: TIntegerField
      FieldName = 'MSUSDIDORG'
      Origin = '"MS_URL"."MSUSDIDORG"'
    end
    object IBStringField8: TIBStringField
      FieldName = 'MSUNAMEORG'
      Origin = '"MS_URL"."MSUNAMEORG"'
      Size = 255
    end
    object intgrfld8: TIntegerField
      FieldName = 'MSUINF_ADR'
      Origin = '"MS_URL"."MSUINF_ADR"'
    end
    object intgrfld9: TIntegerField
      FieldName = 'MSUINF_DESCR'
      Origin = '"MS_URL"."MSUINF_DESCR"'
    end
    object intgrfld10: TIntegerField
      FieldName = 'MSUINF_FOTO'
      Origin = '"MS_URL"."MSUINF_FOTO"'
    end
    object intgrfld11: TIntegerField
      FieldName = 'MSUINF_TEL'
      Origin = '"MS_URL"."MSUINF_TEL"'
    end
    object intgrfld12: TIntegerField
      FieldName = 'MSUINF_DIR'
      Origin = '"MS_URL"."MSUINF_DIR"'
    end
    object intgrfld13: TIntegerField
      FieldName = 'MSUINF_MAIL'
      Origin = '"MS_URL"."MSUINF_MAIL"'
    end
    object intgrfld14: TIntegerField
      FieldName = 'MSUINF_KOLOTZ'
      Origin = '"MS_URL"."MSUINF_KOLOTZ"'
    end
    object intgrfld15: TIntegerField
      FieldName = 'MSUINF_KOLNEGATIV'
      Origin = '"MS_URL"."MSUINF_KOLNEGATIV"'
    end
    object DateField1: TDateField
      FieldName = 'MSUINF_LASTDATE'
      Origin = '"MS_URL"."MSUINF_LASTDATE"'
    end
    object DateField2: TDateField
      FieldName = 'MSUINF_LASTNEGATIVDATE'
      Origin = '"MS_URL"."MSUINF_LASTNEGATIVDATE"'
    end
    object IBStringField9: TIBStringField
      FieldName = 'MSUNOTE'
      Origin = '"MS_URL"."MSUNOTE"'
      Size = 2048
    end
    object IBStringField10: TIBStringField
      FieldName = 'MSUUSERENTER'
      Origin = '"MS_URL"."MSUUSERENTER"'
      Size = 40
    end
    object DateTimeField3: TDateTimeField
      FieldName = 'MSUTIMEENTER'
      Origin = '"MS_URL"."MSUTIMEENTER"'
    end
    object IBStringField11: TIBStringField
      FieldName = 'MSUUSEREDIT'
      Origin = '"MS_URL"."MSUUSEREDIT"'
      Size = 40
    end
    object DateTimeField4: TDateTimeField
      FieldName = 'MSUTIMEEDIT'
      Origin = '"MS_URL"."MSUTIMEEDIT"'
    end
    object intgrfld16: TIntegerField
      FieldName = 'MSUISDELETE'
      Origin = '"MS_URL"."MSUISDELETE"'
    end
    object IBStringField12: TIBStringField
      FieldName = 'MSTYPE'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object IBStringField13: TIBStringField
      FieldName = 'MSUORG'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object IBStringField14: TIBStringField
      FieldName = 'MSUINF_ADR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object IBStringField15: TIBStringField
      FieldName = 'MSUINF_DESCR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object IBStringField16: TIBStringField
      FieldName = 'MSUINF_FOTO_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object IBStringField17: TIBStringField
      FieldName = 'MSUINF_TEL_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object IBStringField18: TIBStringField
      FieldName = 'MSUINF_DIR_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
    object IBStringField19: TIBStringField
      FieldName = 'MSUINF_MAIL_'
      ProviderFlags = []
      FixedChar = True
      Size = 11
    end
  end
end
